home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / MENUUN / MENU.PAS next >
Pascal/Delphi Source File  |  1994-12-17  |  2KB  |  67 lines
  1. Program MenuDemo;
  2. Uses Menus, Dos, Crt;
  3. Var
  4.     Menu : MenuRec;
  5.     ItemSelected : Integer;
  6. Begin
  7.     CreateMenu(Menu);
  8.     AddToMenu(Menu, 'DISPLAY MEMBERS');
  9.     AddToMenu(Menu, 'ADD A MEMBER');
  10.     AddToMenu(Menu, 'DELETE A MEMBER');
  11.     AddToMenu(Menu, 'MEMBER FINANCES');
  12.     AddToMenu(Menu, 'QUIT');
  13.     ShowMenu(Menu, NW, ItemSelected);
  14.     TextBackGround (Black);
  15.     TextColor (White);
  16.     ClrScr;
  17.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  18.     Readln;
  19.     ShowMenu(Menu, N, ItemSelected);
  20.     TextBackGround (Black);
  21.     TextColor (White);
  22.     ClrScr;
  23.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  24.     Readln;
  25.     ShowMenu(Menu, NE, ItemSelected);
  26.     TextBackGround (Black);
  27.     TextColor (White);
  28.     ClrScr;
  29.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  30.     Readln;
  31.     ShowMenu(Menu, W, ItemSelected);
  32.     TextBackGround (Black);
  33.     TextColor (White);
  34.     ClrScr;
  35.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  36.     Readln;
  37.     ShowMenu(Menu, C, ItemSelected);
  38.     TextBackGround (Black);
  39.     TextColor (White);
  40.     ClrScr;
  41.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  42.     Readln;
  43.     ShowMenu(Menu, E, ItemSelected);
  44.     TextBackGround (Black);
  45.     TextColor (White);
  46.     ClrScr;
  47.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  48.     Readln;
  49.     ShowMenu(Menu, SW, ItemSelected);
  50.     TextBackGround (Black);
  51.     TextColor (White);
  52.     ClrScr;
  53.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  54.     Readln;
  55.     ShowMenu(Menu, S, ItemSelected);
  56.     TextBackGround (Black);
  57.     TextColor (White);
  58.     ClrScr;
  59.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  60.     Readln;
  61.     ShowMenu(Menu, SE, ItemSelected);
  62.     TextBackGround (Black);
  63.     TextColor (White);
  64.     ClrScr;
  65.     Writeln ('SELECTED ', Menu.MenuArray[ItemSelected]);
  66.     Readln;
  67. End.